home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Shareware World / Comms & Internet / SB114 / Plugins / bk < prev    next >
Text File  |  1997-05-18  |  927b  |  46 lines
  1. 'Bankick Sample Plugin
  2. '© John Bafford, 1996-1997
  3.  
  4. *COMMAND bk 300
  5. *COMMAND kb 300
  6. *COMMAND lbk 300
  7. *COMMAND pbk 300
  8. *ENDCONF
  9.  
  10. '@ENTRY main
  11. @GETARGS 2
  12. @IF #$NUMARGS < 1 noArgs
  13.  
  14. @IF "$ARG0" = "bk" bk
  15. @IF "$ARG0" = "kb" kb
  16. @IF "$ARG0" = "lbk" lbk
  17. @IF "$ARG0" = "lkb" lkb
  18. @END
  19.  
  20. @LABEL bk
  21. BAN $CHANNEL $ARG1
  22. KICK $CHANNEL $ARG1 Bye
  23. NOTICE $NICK Bankicked $ARG1 from $CHANNEL
  24. @END
  25.  
  26. @LABEL kb
  27. KICK $CHANNEL $ARG1 Bye
  28. BAN $CHANNEL $ARG1
  29. NOTICE $NICK Kickbanned $ARG1 from $CHANNEL
  30. @END
  31.  
  32. @LABEL lbk
  33. SHIT $CHANNEL $ARG1 3 30 $ARG2
  34. NOTICE $NICK Shitlisted $ARG1 on $CHANNEL for a month.
  35. @END
  36.  
  37. @LABEL pbk
  38. SHIT * $ARG1 3 3650 $ARG2
  39. NOTICE $NICK Shitlisted $ARG1 from $CHANNEL for ten years
  40. @END
  41.  
  42. @LABEL noArgs
  43. NOTICE $NICK You didn't tell me who you wanted to ban...
  44. @@END
  45.  
  46. NOTE: I used @GETARGS 2 for bk and kb so that we wouldn't mess up if the user gave more than one argument - this guarantees that $ARG1 doesn't have any spaces in it.